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Find out why Antic is . 

*1 in Editorial 

^1 in User Support 

^1 in Software 

^1 in Circulation 

^1 in Advertising Sales 
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The ATARI Resoui 



Save $14.00 

Off Newsstand Price 



GET STARTED TODAY! 



D Yes, please send me a full year of Antic Magazine (12 Issues) at the special money-savins rate 
of S28.00. 1 understand that's a discount of over 34% off the newsstand rate. Bill me later. 



Name. 



Company. 
Address _ 



(please print) 



City. 



-State. 



.Zip. 



Please allow 4-6 weeks for delivery of your first issue. 
Canadian & Mexican residents add S8.00 Per year. Other 
Foreisn subscriptions add SI 2,00 Per year. {Payment must 
accompany all overseas orders.) 



^m ^ ^-^ The ATARI ecsGiirce 



COMPUTMR AfiTS 



AmMMlufiUlu 



9€B9raf 
3^ Action 
Weave Color 
ofl Aten 

NcwOraiiMcs 

CeiMMntfs 

fnmnAStC 



10 Tfpa-in 
iRrograms 

(U P^afu af littt 



III 





■kll. 

„^ lA^. 



h 



Anflc 



TTis ATARI Re^surce 



THE EASIEST WAY 
TO GET STARTED! 




Magazine & Disk 
Just $8.32 Per Month 



n Yes, I want more time to enjoy my Atari computers. Please send me the monthly Software Disk (12 issues) 
with the resular Antic Magazine subscription at the special money-savins rate of S99.95. Subscription 
will besin with receipt of payment. 

D check enclosed n credit card order 

Name Company 



(please prini) 



Address . 
City 



State . 



Zip. 



Credit Card * . 
Exp. Date 



D VISA n MC 



Signature . 



—Sana* 



EJ5S1B 



Please allow 4-6 weeks for cJelivery of your first issue. 
Ail foreisn subscriptions add S25.00 per year. Use envelope 
for this card. 
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GET STARTED TODAY! 



Anfic 



The ATARI Resource 



Save $14.00 

Off Newsstand Price 



GET STARTED TODAY! 



CH Yes, please send me a full year of Antic Magazine (12 Issues) at the special money-saving rate 
of S28.00. 1 understand that's a discount of over 34% off the newsstand rate. Bill me later. 



Name. 



(please print) 



Company. 



Address. 



City. 



. State . 



.Zip. 



Please allow 4-6 weeks for delivery of your first issue. 
Canadian & Mexican residents add 58.00 Per year. Otl^er 
Foreign subscriptions add S12.00 Per year, (Payment must 
accompany all overseas orders.) 
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The ATARI Resource 

Antic 

P.O. Box 1919 

Marion, OH 43306 



More colorful enjoy- 
ment for your Atari 
from Antic. Each of 
these BASIC programs 
is a mini computer art- 
work, just for you! 



1 PRINT "wUHftT GRftPHICS 
M0DEC9,18,11J"; :IMPUT 

n 

29 REM LIGHTSHOU n2 

30 GRAPHICS n:FOR 1=0 T 
O 79: FOR J=0 TO 79 : COLO 
R I+J/4*4 

48 PLOT I,79-J:PL0T J, 7 
9-I:PL0T 79-J, 79-1 : PLOT 
79-I,79-J:PL0T 79-1, J: 
PLOT 79-J,I:PL0T I , J : PL 
OT J, I 

5e NEXT J : NEXT I 
80 GOTO 60 



5 Z=0 

18 GRftPHICS 11 

28 FOR 1=1 TO 79 

38 Z=Z+l:IF Z>9 THEN Z= 

1 

35 COLOR Z 

48 PLOT I,X:DBfiWTO 79-1 

,X 

58 PLOT I, 198-K : DRftUTO 

79-I-190-K 

60 X=X+2:IF X>198 THEN 

K = B 

78 NEXT X:Z=Z+l:GOTO 10 



10 GRftPHICS 8+16 

20 SETCOLOR 2,10.0 

30 FOR 1=1 TO 198 STEP 

7 

40 PLOT I. O: DRftUTO 300, 

I 

45 PLOT 300-1, 190 :DRftUT 

O 0,190-1 

58 PLOT 0,190-1 .-DRftUTO 

1,8 

55 PLOT 380, I : DRftUTO 30 

0-1,190 

60 NEXT I 

65 GOTO 65 



18 GRftPHICS 11 

28 FOR X=8 TO 78 

38 C=C+l:COLOR C : IF C=l 

27 THEN C=8 

48 PLOT X,V: DRftUTO 78-X 

,V:DRflUTO 78-X, 191-Y:DR 

ftWTO X, 191-Y: DRftUTO X,Y 

58 ■i' = Y + 2:IF YM91 THEN 

Y = 8 

60 NEXT K:GOTO 20 



